home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / tower.scp < prev    next >
Encoding:
Text File  |  1994-12-08  |  5.7 KB  |  271 lines
  1. // ***TOWER LEVEL***
  2. { TOWER_LOAD
  3.     ^à╝            = $é╛         
  4.  
  5.     // IF LEX IS WEARING THE REFLECT SUIT MAKE SURE THE BATTERY CONTINUES
  6.     // TO BE DRAINED.       -BKA-
  7.     @Ç¢               PLAYER
  8.     I ( @Ç⌐      (LEXMIR) ) THEN
  9.         {
  10.         ^ä╝                    = @Çì      REFLECTBATTDRAIN
  11.         }
  12.  
  13.     // RESTART BIOREPAIR IF IT IS STILL ACTIVE
  14.     I  ^ïâ        = 1 THEN
  15.         ^Ä₧  = @Çì      BIOREPAIR
  16.  
  17.     // RESET TONFA GUN -BKA
  18.     ^ïÆ             = 0
  19.     ^ïò         = 0
  20.  
  21.     I ( ^ä₧        = $é╝      ) THEN
  22.         ^ä₧        = $é╗      ;
  23.  
  24.     @Çì      LEVEL1TREMORS
  25.     @Çì      ESCHERS_PLEES_FOR_HELP
  26.     @Çì      STRAIN
  27. }
  28.  
  29. { ELT_LOAD
  30.  
  31.     ƒ                  TWR5 OFF
  32.     ƒ                  TWR6 OFF
  33.     ƒ                  TWR7 OFF                        
  34.     
  35.     ^êä      = @Çë              ()
  36.             (^êä      0)
  37.  
  38.     @Ç¥   READY_TOWERBOTS   // IN AI_TOWER.SCR
  39.  
  40.     ì      0
  41.     
  42.     I  ^üÑ           = 1 AND ^üú        = 1 THEN
  43.     {
  44.         I  ^üª         THEN 
  45.             é     
  46.         E   
  47.         {
  48.             i           LEX ROLLIVE
  49.             ^üª         = 1
  50.         }
  51.     }
  52.  
  53.     // MASTABA'S SPEECH THAT COMES ON AFTER YOU KILL BOTH DROPSHIP'S
  54.     //      FORGOT TO ADD FLAG THAT ALLOWS HIM TO SAY IT ONLY ONCE - JT
  55.     I  ^ü⌐                    = $Ç╝   THEN é     
  56.     I  ^üƒ               = $Ç╗    THEN
  57.         {
  58.         ^üá                = $Ç╗    THEN
  59.             {
  60.             //@@@ PLEASE TRANSLATE
  61.             ^ü⌐                    = $Ç╝  
  62.                         @Ç║      (`éè                   $Ç╜      "This is your doctor speaking.")
  63.                         @Ç║      (`éï                   $Ç╜      "I know you are confused and disoriented,~but we are not your enemy.")
  64.                         @Ç║      (`éî                   $Ç╜      "You are one of us, a Mondite,~and we are in extreme danger.")
  65.                         @Ç║      (`éì                   $Ç╜      "Doctor Escher has betrayed us all.")
  66.                         @Ç║      (`éÄ                   $Ç╜      "She has brought a monster into our base.")
  67.                         @Ç║      (`éÅ                   $Ç╜      "If we are to survive I need your help.")
  68.             }
  69.          }
  70. }
  71.  
  72. { TWR_LOAD
  73.  
  74.     I  ^åò              = 0 THEN
  75.         {
  76.         ^åò              = 1
  77.         ^êä      = @Çê            ()
  78.         I  ^躠          = 0 THEN O     $ÇÅ   
  79.         N     (@Çà    (1,8))
  80.             {
  81.             U    1
  82.                             (`Çö         , `Ç╗   )
  83.                 X ÇÇ 
  84.             U    2
  85.             U    3
  86.                             (`Çö         , `Ç╝   )
  87.                 X ÇÇ 
  88.             U    4
  89.                             (`Çö         , `Ç╜   )
  90.                 X ÇÇ 
  91.             U    5
  92.             U    6
  93.                             (`Çö         , `Ç╛   )
  94.                 }
  95.         }
  96.  
  97.     I ( @Ç¢              ( ROLAND ) ) THEN
  98.         {
  99.         Y                 TWR1 TWR2 LASER HIT
  100.         I  @Çô        (PLEAD) = 0 THEN 
  101.             è          OFF
  102.         E    
  103.             M      PLEAD CONTINUE
  104.         ï           PLAYER
  105.         Z       CURFIG ON
  106.         u          CURFIG ON
  107.         I  ^üº       THEN
  108.             G  BEGHERE
  109.         E   
  110.             G  DEST
  111.         }
  112.         
  113.  
  114.     // AT THIS TIME YOU MUST BE ASSURED THAT YOU'VE HEARD ABOUT THE
  115.     // LANDER FROM THE GUARD ROOM RADIO, SO THIS 'IF' IS HERE TO HELP
  116.     // OUT DURING TESTING.
  117.     I ( ^ü¥           < 1 ) THEN ^ü¥           = 1
  118. }
  119.  
  120.  
  121. // *** TOWER CAMERAS ***
  122.  
  123. { TWR1_LOAD
  124.  
  125.     I ( @Ç¢               ROLAND ) THEN
  126.         ┬             
  127.     
  128.     I ( ^ü¥           = 2 ) THEN
  129.         {
  130.         // WHEN YOU FIRST STEP INTO THIS AREA THE SHIPS WILL START
  131.         // FLYING BY. -KLD
  132.         ^ü¥           = 3
  133.         @Çì      SHIPORCHESTRA
  134.         }
  135.  
  136.     // ONLY IF THE GUN MANAGEMENT ISN'T ALREADY HAPPENING!
  137.     @Çì      MANAGEGUN
  138.  
  139.     I ( ^ü¥           >= 3 && ^üƒ               = 1 ) THEN
  140.         {
  141.         // SHOOT THE PLAYER!
  142.  
  143.         }
  144. }
  145.  
  146. { TWR2_LOAD
  147.     I ( @Ç¢               ROLAND ) THEN
  148.         ┬             
  149. }
  150.  
  151. { SAYGUNISOFF
  152.                 @Ç║       `饠               $Ç╜      "Tower to Control Room:~The main gun is off line."
  153.     W    2 SECONDS
  154.     @Ç║       `饠               $Ç╜      "Tower to Control Room:~The main gun is off line."
  155. }
  156.  
  157. { TWR4_LOAD
  158.  
  159.     // NOW YOU SHOULD HEAR THE DROPSHIP RADIO IN THAT ITS COMING
  160.     // IN FOR A LANDING, AS LONG AS YOU'VE NEVER HEARD IT BEFORE.
  161.     I ( ^ü¥           = 1 ) THEN
  162.         {
  163.         ^ü¥           = 2
  164.         @Çì      SAYGUNISOFF
  165.         }
  166.     ƒ                  TWR5 ON
  167.     ƒ                  TWR6 ON
  168.     ƒ                  TWR7 ON
  169. }
  170.  
  171. // ***TOWER LEVEL USABLE TRIGGERS***
  172.  
  173. { TWR_LV1_USE
  174.     I  ^å¡              = 1 THEN é     
  175.     ^Ç┤              ++
  176.     M      PUSH_BUTTON CONTINUE
  177.     W    15
  178.     @Ç¥   ELEVATOR_MONITOR
  179.     ^Ç┤              --
  180. }
  181.  
  182.  
  183.  
  184. // OPENS THE ELEVATOR DOORS TO THE TOWER LEVEL...
  185.  
  186. { TDR_BUT_USE
  187.  
  188.     // DON'T LET THEM LEAVE UNLESS THE FULL LANDER SEQUENCE HAS RUN!
  189.     I ( ^ü¥           >= 3 && ^ü¥           < 5 ) THEN
  190.         é     
  191.  
  192.     M      PUSH_BUTTON CONTINUE
  193.     W    15
  194.  
  195.     I  ^å¼                  THEN
  196.         {
  197.         // MAYBE RUN A DIFFERENT SOUND EFFECT HERE
  198.         @Çå   ( `ä¡        100)
  199.         é     
  200.         }
  201.     E   
  202.         @Çå   ( `Çì          , 100, -2048 )
  203.  
  204.     I  ^ä₧        = $é╗       THEN
  205.         {
  206.         // OPEN THE ELEVATOR DOORS
  207.         @Çì      ELEVATOR_DOOR_OPEN
  208.         ^ä₧        = $é║      
  209.         @Çì      TOWERAUTOELEVATORCLOSE
  210.         }
  211.     E   
  212.         {
  213.         @Çì      ELEVATOR_DOOR_CLOSE
  214.         ^ä₧        = $é╗      
  215.         }
  216. }
  217.  
  218. { MOVESCREEN
  219.     P        ~ÇÇ  
  220.  
  221.     I ( ^ü¬      < 0 ) THEN
  222.         {
  223.         :MOVERIGHT
  224.         ~ÇÇ   = ^ü¬      
  225.         ~ÇÇ   *= ~ÇÇ  
  226.         ~ÇÇ   += 2
  227.  
  228.         W    ~ÇÇ  
  229.         ^ü¬      += 1
  230.         ì      MOVE ^ü¬      0 ^ü¬      0
  231.         I ( ^ü¬      < 4 ) THEN J    #Çè      
  232.         }
  233.     E   
  234.         {
  235.         :MOVELEFT
  236.         ~ÇÇ   = ^ü¬     
  237.         ~ÇÇ   *= ~ÇÇ  
  238.         ~ÇÇ   += 2
  239.  
  240.         W    ~ÇÇ  
  241.         ^ü¬      -= 1
  242.         ì      MOVE ^ü¬      0 ^ü¬      0
  243.         I ( ^ü¬      > -4 ) THEN J    #Çï     
  244.         }
  245.             
  246. }
  247.  
  248. // CREAKING OF TOWER
  249. { STRAIN
  250.     P        ~ÇÇ  
  251.     P        ~Çü    
  252.     P        ~Çé   
  253.         
  254.     ó               TWR1 TWR2 TWR3 TWR4 TWR5
  255.     
  256.     :LOOP
  257.     ~ÇÇ   = @Çà    (5,20)
  258.     ~Çü     = @Çà    (100,255)
  259.     ~Çé    = @Çà    (0,5) * 1024
  260.     W    ~ÇÇ   SECONDS
  261.     @Çå   (`åö         ~Çü     ~Çé   )
  262.  
  263. // REMOVED BY POPULAR DEMAND. -KLD
  264. //      @PROCESS MOVESCREEN
  265.  
  266.     â      
  267.     J    #Çì 
  268. }
  269.  
  270. //$ 26 - version number
  271.